home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / programs / cdindex / cdindexer < prev    next >
Text File  |  1997-04-03  |  3KB  |  97 lines
  1. setenv title CDIndexer 2.0
  2. setenv body1 CDIndexer v2.0  ©1997 by Diego Nova*n*n
  3. setenv body2 Questo programma ti permette di creare*n
  4. setenv body3 una lista in formato HTML o AmigaGuide*n
  5. setenv body4 del contenuto di un CD-ROM.*n
  6. requestchoice >env:risp "$title" "$body1 $body2 $body3 $body4" "Continua|Annulla"
  7. IF $risp VAL EQ 0
  8.     skip abort
  9. ENDIF
  10.  
  11. setenv title CDIndexer 2.0
  12. setenv body1 Ora ti verrà chiesto di selezionare il*n
  13. setenv body2 file.INDICE da cui creare la lista*n
  14. setenv body3 ed eseguire ricerche...*n
  15. requestchoice >env:risp "$title" "$body1 $body2 $body3" "Continua|Annulla"
  16. IF $risp VAL EQ 0
  17.     skip abort
  18. ENDIF
  19. requestfile >env:sorg DRAWER "SYS:" PATTERN "~(#?.info)" TITLE "Seleziona il file INDICE"
  20. IF WARN
  21.     skip abort
  22. ENDIF
  23.  
  24. setenv title CDIndexer 2.0
  25. setenv body1 Dopo questa schermata ti verrà presentato*n
  26. setenv body2 un requester in cui dovrai selezionare la*n
  27. setenv body3 directory in cui creare la lista.*n
  28. requestchoice >env:risp "$title" "$body1 $body2 $body3 $body4" "Continua|Annulla"
  29. IF $risp VAL EQ 0
  30.     skip abort
  31. ENDIF
  32. requestfile >env:dest DRAWER "SYS:" PATTERN "~(#?.info)" TITLE "Seleziona la destinazione della lista" DRAWERSONLY
  33.  
  34. setenv title CDIndexer 2.0
  35. setenv body1 Come puoi ben notare, qui sotto sono*n
  36. setenv body2 presenti tre bottoni:*n*n
  37. setenv body3 Guide: genera una lista in formato AmigaGuide*n
  38. setenv body4 HTML: genera una lista in formato HTML*n
  39. setenv body5 Annulla: Abbandona il programma*n
  40. requestchoice >env:type "$title" "$body1 $body2 $body3 $body4 $body5" "Guide|HTML|Annulla"
  41.  
  42. IF $type VAL EQ 0
  43.     skip abort
  44. ENDIF
  45.  
  46. IF $type VAL EQ 1
  47.     setenv title CDIndexer 2.0
  48.     setenv body1 Avendo scelto il formato AmigaGuide,*n
  49.     setenv body2 è necessario definire dove tutti i files,*n
  50.     setenv body3 quando vi cliccheremo sopra, verranno copiati*n
  51.     setenv body4 (Es. Work:Files/)*n
  52.     requestchoice >env:risp "$title" "$body1 $body2 $body3 $body4" "Continua|Annulla"
  53.     IF $risp VAL EQ 0
  54.         skip abort
  55.     ENDIF
  56.     requestfile >env:dest2 DRAWER "SYS:" PATTERN "~(#?.info)" TITLE "Seleziona dove copiare i files" DRAWERSONLY
  57.     CDI $sorg $dest $type $dest2 >NIL:
  58.     copy RAM:T/#?.guide to $dest QUIET
  59.     delete RAM:T/#?.guide QUIET
  60.     lab successful
  61. ENDIF
  62.  
  63. IF $type VAL EQ 2
  64.     CDI $sorg $dest $type >NIL:
  65.     lab successful
  66. ENDIF
  67.  
  68. lab successful
  69. setenv title CDIndexer 2.0
  70. setenv body1 Lista Creata.*n
  71. setenv body2 Buona consulatazione*n
  72. requestchoice >env:cancel "$title" "$body1 $body2" "OK"
  73.  
  74. skip exit
  75.  
  76. lab abort
  77. setenv title CDIndexer 2.0
  78. setenv body1 Programma Abbandonato
  79. requestchoice >env:cancel "$title" "$body1" "OK"
  80.  
  81. lab exit
  82.  
  83. unsetenv sorg
  84. unsetenv dest
  85. unsetenv dest2
  86. unsetenv type
  87. unsetenv title
  88. unsetenv body1
  89. unsetenv body2
  90. unsetenv body3
  91. unsetenv body4
  92. unsetenv cancel
  93. unsetenv risp
  94. unsetenv dir
  95.  
  96.  
  97.